{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE QuasiQuotes #-}

module MainHamlet where
import Text.Hamlet (HtmlUrl,hamlet,ihamlet)
import Text.Blaze.Html.Renderer.String (renderHtml)
import Data.Text (Text)

data MyData =SomePage

render::MyData->[(Text,Text)]->Text
render _ _ ="demo"

myHamlet ::Text->HtmlUrl MyData
myHamlet demo= [hamlet|
        <html>
            <body>
                <a href=@{SomePage}>test
                <lable>#{demo}
|]
main::IO()
main = putStrLn $ renderHtml $myHamlet "123" render
